home *** CD-ROM | disk | FTP | other *** search
/ Mail Madness! 41 / Mail_Madness_41_2002_Telenova_Side_B.d64 / mm-party fun_djr (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  6KB  |  45 lines
  1. 1 sys8192:print"[147]":foraz=1to20:run10
  2. 10 poke53280,0:poke53281,0:gosub300
  3. 100 poke53280,1:printtab(a)"[213][192][192][192][192][201]"
  4. 110 printtab(a)"[221][215]  [215][221]"
  5. 120 printtab(a)"[221] [167][165] [221]"
  6. 130 printtab(a)"[221] [192][192][160][221]"
  7. 140 printtab(a)"[202][192][178][178][192][203]"
  8. 150 printtab(a)"[176][189][173][174]"
  9. 160 printtab(a)"[221] [160][221]"
  10. 170 printtab(a)"[173][178][178][189]"
  11. 180 printtab(a)"[221][221]"
  12. 190 printtab(a)"[189][173]"
  13. 200 poke53280,0:return
  14. 300 forj=1to5:next:print"":a=2:poke646,1:gosub100
  15. 301 forj=1to850:next:print"":a=32:poke646,6:gosub100
  16. 302 forj=1to450:next:print"":a=14:poke646,5:gosub100
  17. 303 forj=1to500:next:print"":a=20:poke646,3:gosub100
  18. 304 forj=1to400:next:print"":a=08:poke646,13:gosub100
  19. 305 forj=1to100:next:print"":a=26:poke646,14:gosub100
  20. 306 forj=1to3600:next:goto400
  21. 307 poke53280,1:poke53281,1:print"short presentation from dejuhra/anubis"
  22. 308 print"press enikae to restart"
  23. 309 fora=1to5:print"[145]":next:poke53280,0:poke53281,0:t=425
  24. 310 t=t-1:print"[145]automatic restart:"t"[157] ":geta$:ifa$=""andt>0then310
  25. 399 run
  26. 400 t=5:print"":forlo=1to11
  27. 401 poke53280,10:printtab(t)"[150][145][145][145][145][145]       [166]   [166]  [166]  [166] [166]         "
  28. 402 printtab(t)"       [166][166] [166][166] [166] [166] [166] [166]         "
  29. 403 printtab(t)"       [166] [166] [166] [166][166][166] [166] [166]         "
  30. 404 printtab(t)"       [166]   [166] [166] [166] [166] [166]         "
  31. 405 printtab(t)"       [166]   [166] [166] [166] [166] [166][166][166]       ":poke53280,0
  32. 409 forj=1to170:next
  33. 411 poke53280,7:printtab(t)"[158][145][145][145][145][145][166]   [166]  [166]  [166][166]  [166] [166] [166][166][166] [166][166][166] [166][166][166]"
  34. 412 printtab(t)"[166][166] [166][166] [166] [166] [166] [166][160][166][220][166] [166]   [166]   [166]"
  35. 413 printtab(t)"[166] [166] [166] [166][166][166] [166] [166][160][166][166][166] [166][166]  [166][166][166][160][166][166][166]"
  36. 414 printtab(t)"[166]   [166] [166] [166] [166] [166] [166] [166] [166]     [166]   [166]"
  37. 415 printtab(t)"[166]   [166] [166] [166] [166][166]  [166] [166] [166][166][166] [166][166][166] [166][166][166]":poke53280,0
  38. 419 forj=1to170:next
  39. 421 poke53280,13:printtab(t)"[156][145][145][145][145][145]     [166][166]   [166]  [166][166][160] [166][166][166] [166] [166]     "
  40. 422 printtab(t)"     [166] [166] [166] [166] [166] [166][160] [166]  [166] [166]     "
  41. 423 printtab(t)"     [166][166]  [166][166][166] [166][166]   [166]  [166][166][166]     "
  42. 424 printtab(t)"     [166]   [166] [166] [166] [166]  [166]   [166]      "
  43. 425 printtab(t)"     [166][160]  [166][160][166] [166][160][166]  [166]   [166]      ":poke53280,0
  44. 429 forj=1to170:next:next:fora=1to900:next:print"[147]";:goto307
  45.